home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Interfaces&Libraries / Universal / Interfaces / AIncludes / Traps.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  3.2 KB  |  139 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Traps.a
  3. ;
  4. ;    Contains:    A-Trap constants.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1985-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__TRAPS__') = 'UNDEFINED' THEN
  18. __TRAPS__ SET 1
  19.  
  20.     IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
  21.     include 'ConditionalMacros.a'
  22.     ENDIF
  23.  
  24.  
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ;
  27. ;         Trap OPWORDS are now defined in each manager    
  28. ;         
  29. ;             Example:
  30. ;            
  31. ;                _GetResource    OPWORD    $A9A0
  32. ;                
  33. ;             is now in the file 'Resources.a'
  34. ;        
  35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  36.  
  37.  
  38.  
  39. ; 
  40. ;    The floating point traps are needed because SANEMacs.a relies on Traps.a
  41. ;    defining them.  We won't be fixing SANEMacs.a, so putting the traps here
  42. ;     allows developers to use Universal AIncludes more easily.
  43. ;
  44.     IF TARGET_CPU_68K THEN
  45.         UnimplementedTrap:    EQU        $A89F
  46.         _Unimplemented:        OPWORD    $A89F
  47.         _FP68K:                OPWORD    $A9EB
  48.         _Elems68K:            OPWORD    $A9EC
  49.         _DecStr68K:            OPWORD    $A9EE
  50.     ENDIF
  51.  
  52.  
  53.  
  54.     IF TARGET_CPU_68K THEN
  55. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  56. ;
  57. ;    MoveTrapWord
  58. ;         
  59. ;     This macro allows OPWORDs to be used as parameters to Get/SetTrapAddress.
  60. ;    For examples:
  61. ;
  62. ;            MoveTrapWord    _GetResource,D0        ; ->    Move.w    #$A9A0,D0
  63. ;            _GetToolboxTrapAddress
  64. ;
  65. ;            MoveTrapWord    $A060,D0            ; ->    Move.w    #$A060,D0
  66. ;            _GetOSTrapAddress
  67. ;        
  68. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  69.     Macro
  70.     MoveTrapWord &trap,&dest=D0
  71.         gbla &trapNum
  72.  
  73.         If &trap = '' then
  74.             AError 'must specify trap number or name'
  75.             Exitm
  76.         Elseif &type(&upcase(&trap)) = 'OPWORD' then
  77.             If &findsym(&sysglobal, &upcase(&trap)) then
  78.                 &trapNum: seta &sysvalue
  79.             Elseif &findsym(&syslocal, &upcase(&trap)) then
  80.                 &trapNum: seta &sysvalue
  81.             Else
  82.                 aerror 'internal error in MoveTrapWord (an OPWORD, but not in any symbol table??)'
  83.                 ExitM
  84.             endif
  85.         Else
  86.             &trapNum: seta &eval(&trap)
  87.         Endif
  88.         If ((&trapNum < 0) or (&trapNum > $3FFC)) and ((&trapNum and $F000) ≠ $A000) then
  89.             AError 'not a valid trap number ($A000 - $AFFF)'
  90.             ExitM
  91.         Endif
  92.         move.w    #&trapNum,&dest
  93.     EndM
  94.     ENDIF    ; TARGET_CPU_68K
  95.  
  96.  
  97.  
  98.  
  99.     IF OLDROUTINENAMES THEN
  100. ; 
  101. ; 
  102. ;        The following equates are for compatibility with old option bits
  103. ;        
  104. ;            Example:
  105. ;                    _NewPtr, sys        ; old way
  106. ;        
  107. ;        The new way is to use the C name:
  108. ;        
  109. ;            Examle:
  110. ;                    _NewPtrSys            ; new way
  111. ;
  112. ;
  113.  
  114. ;
  115. ; for Device and File Manager routines 
  116. immed                            EQU        $200                ; execute immediately, bypass I/O queue
  117. async                            EQU        $400                ; asynchronous, don't wait for completion
  118. ;
  119. ; for Memory Manager routines 
  120. clear                            EQU        $200
  121. sys                                EQU        $400
  122. ;
  123. ; for string routines 
  124. marks                            EQU        $200                ; set to ignore/strip diacriticals
  125. Case                            EQU        $400                ; set for case sensitivity        
  126. autoPop                            EQU        $400                ; set to pop an extra return address
  127. ;
  128. ; for Get/Set & NGet/NSet TrapAddress 
  129. newTool                            EQU        $600                ; Toolbox trap, under new ordering
  130. newOS                            EQU        $200                ; OS trap, under new ordering
  131. ;
  132. ; for HFS routines 
  133. newHFS                            EQU        $200
  134.  
  135.     ENDIF    ; OLDROUTINENAMES
  136.  
  137.     ENDIF ; __TRAPS__ 
  138.  
  139.